home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / forms / vpfade / vpfade.bas next >
Encoding:
BASIC Source File  |  1995-01-02  |  1.4 KB  |  52 lines
  1. Option Explicit
  2. Global DR, DG, DB, RI, GI, BI, RE, GE, BE, StepColor As Integer, InitialColor, FinalColor As Long
  3.  
  4. Sub CalcSetka ()
  5.     If StepColor = 0 Then StepColor = 50
  6.     If InitialColor = 0 Then InitialColor = RGB(0, 0, 255)
  7.     If FinalColor = 0 Then FinalColor = RGB(0, 0, 32)
  8.  
  9.         RI = InitialColor \ 65536
  10.  
  11.         GI = (InitialColor - RGB(0, 0, RI)) \ 256
  12.  
  13.         BI = InitialColor - RGB(0, GI, RI)
  14.  
  15.  
  16.         RE = FinalColor \ 65536
  17.         GE = (FinalColor - RGB(0, 0, RE)) \ 256
  18.         BE = FinalColor - RGB(0, GE, RE)
  19.  
  20.         DR = Fix((RE - RI) / StepColor)
  21.         DG = Fix((GE - GI) / StepColor)
  22.         DB = Fix((BE - BI) / StepColor)
  23.  
  24. End Sub
  25.  
  26. Sub DrawForm (Form As Form)
  27.     Dim I, Y0, YM, DY, R, G, b, X0, XM
  28.     Form.DrawStyle = 5
  29.     Form.DrawWidth = 1
  30.     Form.ScaleMode = 3
  31.      Y0 = Form.ScaleTop
  32.      DY = Fix(Form.ScaleHeight / StepColor)
  33.      YM = Y0 + DY
  34.         R = RI
  35.         G = GI
  36.         b = BI
  37.      For I = 1 To StepColor
  38.         If I = StepColor Then YM = Form.ScaleHeight - 1
  39.         Form.Line (Form.ScaleLeft, Y0)-(Form.ScaleLeft + Form.ScaleWidth - 1, YM), RGB(b, G, R), BF
  40.             Y0 = YM - 1
  41.             YM = YM + DY
  42.             R = R + DR
  43.             G = G + DG
  44.             b = b + DB
  45.      Next I
  46.      Form.ForeColor = &HFFFFFF - InitialColor
  47.      Form.CurrentX = 1
  48.      Form.CurrentY = 1
  49.      Form.Print "Resize Me or Click Me!"
  50. End Sub
  51.  
  52.